SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCCANJ_PROV_I01]  
/*-------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                --*/  
/*---Cliente              : OFISIS                 --*/  
/*---Sistema              : Tesoreria                  --*/  
/*---M÷dulo               : Empresa                    --*/  
/*---Programa             : Grabaci÷n Letras Generadas --*/  
/*                          por Canje                  --*/   
/*---Script               : tccanj_p.sql               --*/  
/*---Nombre SP            : SP_TCCANJ_PROV_I01         --*/  
/*---Desarrollado por     : Javier Flores A.           --*/  
/*---Fecha Creaci÷n       : 18/08/1999                 --*/  
/*---Base Datos           : Microsoft Sql Server       --*/  
/*---Versi÷n              : 7.0                        --*/  
/*---Invoca a SP          :                            --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Modificado 1 por     : Maribel Julca Rodriguez    --*/  
/*---Fecha Modificaci©n   : 21/04/2005                 --*/   
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA, CO_USUA_MODI  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Drop Proc SP_TCCANJ_PROV_I01                      --*/  
/*---Grant all on SP_TCCANJ_PROV_I01 to public         --*/   
/*---SP_TCCANJ_PROV_I01                                --*/  
/*-------------------------------------------------------*/  
 @ISCO_EMPR      TD_VC_002,   
 @ISCO_USUA_MODI TD_VC_008_USUA,  
 @ISCO_PROV      TD_VC_020,  
 @ISNU_LETR_PROV TD_VC_020,  
 @IDFE_CANJ      TD_DT_001,  
 @IDFE_EMIS      TD_DT_001,  
 @IDFE_VENC      TD_DT_001,  
 @ISCO_MONE      TD_VC_003,  
 @INFA_TIPO_CAMB TD_NU_015_006,  
 @INIM_TOTA      TD_NU_016_004,  
 @ISDE_GLOS      TD_VC_100,  
 @ISCO_BANC      TD_VC_003,  
 @ISCO_AGEN      TD_VC_003,  
 @ISNU_CANJ      TD_VC_008,  
 @INNU_SECU_CANJ TD_IN_001,   
 @ISNU_ORDE_LETR TD_IN_001,   
 @ISCO_ESTA_DOCU TD_VC_003,  
 @ISCO_TIPO_OPER TD_VC_003,  
 @ISCO_UNID_CNTB TD_VC_003,  
 @ISDE_LUGA_GIRO TD_VC_050
As
Declare   
   @VNNU_SECU   TD_IN_001,  
   @OSTI_DOCU   TD_VC_003,  
   @VSTI_PROV   TD_VC_003  
  
  
 Begin Tran SP_TCCANJ_PROV_I01  
  
/*   Select @VSTI_PROV = IsNull(TI_CLIE, '')  
   From TMAUXI_EMPR  
   Where CO_EMPR = @ISCO_EMPR  
   And TI_AUXI_EMPR = 'P'  
   And CO_AUXI_EMPR = @ISCO_PROV  
*/  
   Insert into TMLETR_PROV (CO_EMPR, CO_PROV, NU_LETR_PROV,  
   FE_EMIS, FE_VENC, CO_MONE, FA_TIPO_CAMB, IM_TOTA, DE_GLOS, CO_BANC, CO_AGEN,  
   NU_CANJ, CO_ESTA_DOCU,  CO_TIPO_OPER,  CO_UNID_CONC, DE_LUGA_GIRO, TI_PROV, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, 
FE_USUA_MODI)  
   Values ( @ISCO_EMPR, @ISCO_PROV,  @ISNU_LETR_PROV, @IDFE_EMIS, @IDFE_VENC,  
   @ISCO_MONE, @INFA_TIPO_CAMB,  @INIM_TOTA, @ISDE_GLOS, @ISCO_BANC, @ISCO_AGEN,   
   @ISNU_CANJ, @ISCO_ESTA_DOCU, @ISCO_TIPO_OPER,  @ISCO_UNID_CNTB, @ISDE_LUGA_GIRO, @VSTI_PROV,  
   @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE() )  
  
   If @@error <> 0  
      Begin  
        Rollback tran  
        Return  
      End      
  
   Exec SP_TTDOCU_CNTB_Q02 6, @OSTI_DOCU OUTPUT  
  
   Select @VNNU_SECU = ISNULL(Max(NU_SECU),0) + 1  
   From   TDKARD_DOCP  
   Where  CO_EMPR = @ISCO_EMPR  
  
   Insert Into TDKARD_DOCP (CO_EMPR, NU_SECU,CO_TIPO_DOCU, NU_DOCU_PROV, CO_PROV, CO_ESTA_ACTU,  
              CO_ESTA_DOCU, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI )  
   Values ( @ISCO_EMPR, @VNNU_SECU , @OSTI_DOCU, @ISNU_LETR_PROV, @ISCO_PROV,  
     @ISCO_ESTA_DOCU, @ISCO_ESTA_DOCU, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE())    
  
   If @@error <> 0  
      Begin  
        Rollback tran  
        Return  
      End      
  
   Insert into TDCANJ_PROV (CO_EMPR, CO_UNID_CONC, CO_PROV, NU_CANJ, FE_CANJ, NU_SECU_CANJ,  
   NU_ORDE_LETR, NU_LETR_PROV, CO_TIPO_DOCU, NU_DOCU_PROV, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)  
   Values ( @ISCO_EMPR, @ISCO_UNID_CNTB, @ISCO_PROV,  @ISNU_CANJ, @IDFE_CANJ, @INNU_SECU_CANJ, @ISNU_ORDE_LETR,  
   @ISNU_LETR_PROV, NULL, NULL, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE() )  
  
   If @@error <> 0  
      Begin  
        Rollback tran  
        Return  
      End      
  
  
Commit Tran  
  
/*------------------------- Fin ------------------------------*/


GO
